-- stack: in.0a5
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 4760
-- card count: 1
-- first card id: 5260
-- list block id: 2183
-- print block id: 3400
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 10016 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xFF00FF00FF00FF00
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x5555555555555555
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on maugCheck
  global newMessage
  global ignoreLine
  global fileLine
  if (char 1 to 2 of fileLine = "#:") then
    put "y" into newMessage
  else
    put "n" into newMessage
  end if
  put "n" into ignoreLine
end maugCheck

on fidoCheck
  global newMessage
  global ignoreLine
  global fileLine
  if (char 1 of fileLine = "#") then
    put "y" into newMessage
  else
    put "n" into newMessage
  end if
  put "n" into ignoreLine
  if (char 1 to 8 of fileLine) = "Read Com" then put "y" into ignoreLine
  if (char 1 of fileLine) = "[" then put "y" into ignoreLine
  if (char 2 to 4 of fileLine) = "EID" then put "y" into ignoreLine
  if (char 1 to 4 of fileLine) = "SEEN" then put "y" into ignoreLine
  if (char 1 to 5 of fileLine) = "More?" then put "y" into ignoreLine
  if (char 2 to 5 of fileLine) = "PATH" then put "y" into ignoreLine
end fidoCheck

on readArticles
  global ignoreLine
  global fileLine
  global fileStr
  global fileEof
  global newMessage
  global whatOn
  put FileName("TEXT") into fileStr
  if fileStr is empty then exit readArticles
  open file fileStr
  go first card
  set lockscreen to true
  set cursor to 4
  go last card
  put "n" into fileEof
  put "y" into firstNew
  put empty into mainStr
  domenu "New Card"
  put "New Cards Created = 1" into message
  put 1 into num
  repeat until fileEof = "y"
    readLine
    put whatOn & "Check" into it
    do it
    if newMessage = "y" then
      if firstNew = "n" then
        put mainStr into field main
        domenu "new card"
        put empty into mainStr
        put (1 + num) into num
        put "New Cards Created = "&num into message
      else
        put empty into mainStr
        put "n" into firstNew
      end if
      put whatOn into field "source"
      put the date into field date
    end if
    if ignoreLine = "n" then put fileLine after mainStr
  end repeat
  put mainStr into field main
  put empty into mainStr
  close file fileStr
  go first card
  put "All done" into message
  beep
end readArticles

on readLine
  global fileLine
  global fileStr
  global fileEof
  read from file fileStr until return
  put it into fileLine
  if fileLine is empty then
    put "y" into fileEof
  end if
end readLine

on openStack
  show message box
  domenu "Find..."
  global fileLine
  global fileStr
  global fileEof
  global fidoOn
  global opusOn
  global maugOn
  global delphiOn
  global genieOn
  global otherOn
  global whatOn
end openStack

on deleteDate
  global deleteMode
  put "y" into deleteMode
  ask "Earliest date of articles to keep?"
  if it is empty then exit deleteDate
  set lockscreen to true
  set cursor to 4
  put it into delDate
  convert delDate to seconds
  go card 4
  set lockscreen to true
  set cursor to 4
  repeat until (the number of this card) = (the number of cards)
    put "n" into deleted
    put field date into theDate
    if (theDate = "*") then put empty into theDate
    convert theDate to seconds
    if (theDate <> 0) and ((theDate - delDate) < 0) then
      put "Deleting card #" & field "card #" & " (" & the number of cards & ")" into message
      domenu "delete card"
      put "y" into deleted
    end if
    if (deleted = "n") then
      put "Keeping card #" & field "card #" & " (" & the number of cards & ")" into message
      go next card
    end if
  end repeat
  put "n" into deleteMode
end deleteDate